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EDITORIAL 


Sentindo os problemas dos usuários de microcomputadores, em 
termos de acessibilidade a programas, em especial os que envolvem 
lazer, bem como os didáticos, foi que surgiu a idéia desta publicação, 
com a finalidade de satisfazer as necessidades até então existentes. 

Esta publicação não se resume a “simples programas”, e sim pro- 
gramas que de certa forma transmitem “truques”, tais como movi- 
mentos, placares, desenhos, etc, 

Com a evolução espantosa na área de informática, e que a cada dia 
se amplia, Iutaremos para acompanhá-la, e sempre levar aos leitores, 
através da revista SO PROGRAMAS esta verdadeira revolução, 

Acreditamos que o leitor encontrará nesta publicação, o que sempre 
esperou: “SÓ PROGRAMAS”. 


O EDITOR 
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Como o nome já diz, este programa é “QUALQUER COISA”. 
Você já pensou se um dia chegar em casa e encontrar seu microcompu- 
tador ligado e na tela um lembrete dizendo: 


QUERIDO TIÃO DEIXEI NOSSO PENTE PRESO NA PIA. NÃO 
SE ESQUEÇA DE TIRAR AS SUAS PEDRAS DO PALETO PARA 
EVITAR QUE SE ESTRAGUEM. 

LEVE ATE O SR. ZE ESTE PREGO CHEIO DE MELADO PARA 
LAVAR. 

ESCOVE SEU ZE ANTES DE LAVAR SUAS PEDRAS. 

TCHAU. E UM POSTE DE SUA ESTÚPIDA QUE TE AMA. 

ASS. JERVÁSIA. 


DOR ODOLC DDD LDO DO 


o 
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Este programa tem várias utilidades, uma delas é fazer você sorrir 
mesmo sem vontade, desde que você use sua imaginação para distribuir 
com criatividade os seguintes itens: 
1. QUATRO SUBSTANTIVOS QUAISQUER COMO: SOPA, 
MELADO, ETC. 

2. QUATRO ADJETIVOS NO FEMININO COMO: FEIA, MA- 
GRA, ETC. 

3. QUATRO OBJETOS NO MASCULINO COMO: SAPATO, 
MARTELO, ETC. 

4. QUATRO OBJETOS NO FEMININO COMO: MEIA, CALÇA, 
ETC. 

5. DOIS NOMES PRÓPRIOS NO MASCULINO. 

6. DOIS NOMES PRÓPRIOS NO FEMININO. 

IMPORTANTE: TODAS AS PALAVRAS DE QUALQUER ITEM 
SO PODERÃO TER UM MÁXIMO DE OITO LETRAS. 

Você pode optar por quatro tipos de “loucura”: 

1. CARTA 

2. NOTA DE FALECIMENTO 

3. LEMBRETE 

4. PERDEU-SE 

SUGESTÃO: Tente alterar uma das quatro opções, ou até inserir 
outras. 

BOM DIVERTIMENTO (especialmente em passar trezentas linhas 
de programa). 


PROGRAMA DESENVOLVIDO PARA A LINHA SINCLAIR E COMPATÍVEIS 


1 REM QUALQUER COISA 
5 REM SIDNEY PARETTI 
16 DIM A$ (4,8) 
26 DIM B$ (4,8) 
30 DIM C$ (4,8) 
40 DIM D$ (4,8) 
50 DIM E$ (2,8) 
60 DIM F$ (2,8) 
76 PRINT AT 6,8;/4 SUBSTANTIVOS” 
75 INPUT A$ (1) 
80 PRINT AT 7,8;A$ (1) 
90 INPUT AS (2) 
1060 PRINT AT 8,8;A$ (2) 
110 INPUT AS (3) 
120 PRINT AT 9,8;A$ (3) 
136 INPUT A$ (4) 
140 PRINT AT 10,8;AS$ (4) 
150 CLS 
160 PRINT AT 6,8;/4 ADJETIVOS (F):” 
170 INPUT B$ (1) 
180 PRINT AT 7,8:B$ (1) 
190 INPUT B$ (2) 
200 PRINT AT 8,8;B$ (2) 
210 INPUT B$ (3) 
220 PRINT AT 9,8:B$ (3) 
236 INPUT B$ (4) 


Ooo ooo OOo Ca 
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240 PRINT AT 10,8;B$ (4) 
250 CLS 
260 PRINT AT 6,8;“4 OBJETOS (M):” 


270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
ama 
410 
420 
430 
440 
450 
470 
480 
490 
500 
510 
520 
530 
540 
550 


INPUT C$ (1) 

PRINT AT 7,8;C8 (1) 

INPUT CS (2) 

PRINT AT 8,8;C8 (2) 

INPUT C$(3) 

PRINT TA 9,8;C8 (3) 

INPUT C$ (4) 

PRINT AT 10,8;C8$ (4) 

CLS 

PRINT AT 6,8;“4 OBJETOS (F):” 
INPUT D$ (1) 

PRINT AT 7,8;D$ (1) 

INPUT DS (2) 

PRNI AT 8,8;D$ (2) 

INPUT D$ (3) 

PRINT AT 9,8;D$ (3) 

INPUT DS (4) 

PRINT AT 10,8;DS (4) 

CLS 

PRINT AT 6,8;'2 NOMES (M):” 
INPUT ES (1) 

PRINT AT 7,8;E$ (1) 

INPUT ES (2) 

PRINT AT 8,8;E$ (2) 

CLS 

PRINT AT 6,8;“2 NOMES (F):” 
INPUT FS (1) 

PRINT AT 7,8;F$ (1) 

INPUT FS$ (2) 

PRINT AT 8,8;FS (2) 

CLS 

PRINT AT 5,6;“ESCOLHA UM NUMERO: 
LET A= INT (RND * 3)+1 

LET B= INT (RND * 4) +1 

LET C= INT (RND * 3)+1 

LET D= INT (RND * 3) +2 

LET E= INT (RND * 2)+1 

LET F= INT (RND*2)+1 

IF INKEYS$ = “1 THEN GOTO 1000 
IF INKEY$ = “2” THEN GOTO 2000 
IF INKEYS = “3” THEN GOTO 3000 
IF INKEYS = “4” THEN GOTO 4000 
PRINT AT 6,6;1. CARTA” 

PRINT AT 7,6;"2. NOTA DE FALECIMENTO” 
PRINT AT 8,6;"3. LEMBRETE” 
PRINT AT 9,6;'4. PERDEU-SE” 

CLS 

PRINT AT 1,7;”ILMO. SR.” 

PRINT AT 1,17;ES(E) 

PRINT AT 4,3;/'VENHO POR MEIO DESTA” 
PRINT AT 4,24;AS (A) 
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3400000060 0000000000 


1040 
1050 
1060 
1070 
1080 
1090 
1100 
110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1246 
1250 
1260 
1270 
2000 
2005 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2286 


PRINT AT 5,1;/PEDIR UMA PARA USAR NO” 
PRINT AT 5,11;D$ (D) 

PRINT AT 6,9;”, POIS ESTOU COM A MINHA” 

PRINT AT 6,1;C$(C) 

PRINT AT 7,9;“LOTADA DE 

PRINT AT 7,1;D$(B);AT 7,19;AS (D) 

PRINT AT 8,3;“POR ESTE MOTIVO SOU OBRIGADO" 
PRINT AT 9,1;/A APELAR PARA A SEM TER” 
PRINT AT 9,17:B$ (F) | 

PRINT AT 10,10;“COM TOTAL APOIO DAS” 

PRINT AT 10,1;D$ (A) 

PRINT AT 11,9;/PARA JUSTIFICAR MINHAS” 

PRINT AT 11,1:88 (D) 

PRINT AT 12,1;/ATITUDES” 

PRINT AT 12,10;8$ (A) 

PRINT AT 14,3;“FINDO AQUI COM A AJUDA DO MEU” 
PRINT AT 15,10;“DE QUE TUDO SAIA 

PRINT AT 15,1;C8 (B);AT 15,27;A$ (C) 

PRINT AT 18,12;“ASS:” 

PRINT AT 18,16;FS (E) 

PAUSE 2000 

POKE 16437,255 

CLS 

GOTO 600 

CLS 

PRINT AT 2,3;/FALECEU ESTA MANHA O NOSSO” 
PRINT AT 3,1;“QUERIDO POR MOTIVO DE” 
PRINT AT 3,9;E$ (E) 

PRINT AT 4,10; EM DEMASIA”. 

PRINT AT 4,1;A$ (D) 

PRINT AT 5,3;“SEU PARENTE MAIS PROXIMO NOS” 
PRINT AT 6,1;//ENVIOU ESTA COMO PRO-" 
PRINT AT 6,13;DS(A) 

PRINT AT 7,1:/FUNDO SINAL DE AFETO.” 

PRINT AT 8,3;/0 FALECIDO DEIXOU ESTA NOTA:” 
PRINT AT 10,3;/AGORA JA NUM OUTRO MUNDO TO-” 


PRINT AT 11,1;“DO CHEIO DE E TAMBÉM” 
PRINT AT 11,13;/C8 (C) 

PRINT AT 12,1;“CHEIO DE FICO FELIZ” 
PRINT AT 12,16;D$ (C) 

PRINT AT 13,1;/“EM DEIXAR MINHAS PARA” 
PRINT AT 13,18;D$ (A) 

PRINT AT 14,1;“TODOS OS DA MINHA FA-” 
PRINT AT 14,16;A$ (B) 


PRINT AT 15,1;“MILIA DESPECO-ME COM UM GRANDE” 
PRINT AT 16,11;“DE CALOROSO AFETO”. 

PRINT AT 16,1;C$ (B) 

PRINT AT 17,3;"DEIXANDO EM ESPECIAL PARA” 
PRINT AT 18,1;“MINHA ESPOSA TODAS AS” 
PRINT AT 18,7;B$ (B) 

PRINT AT 19,1;“MINHAS” 

PRINT AT 19,8;D$ (B) 

PAUSE 1500 

POKE 16437,255 
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2290 
2300 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3116 
3120 


4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 


CLS 

GOTO 600 

CLS 

PRINT AT 2,3;"QUERIDO DEIXEI NOSSO” 
PRINT AT 2,11;E8 (F) 

PRINT AT 3,11;“PRESO NA” 

PRINT AT 3,1;/C8$ (A) 

PRINT AT 3,26;D$ (D) 

PRINT AT 4,1;“NAO SE ESQUECA DE TIRAR AS SUAS” 
PRITN AT 5,11;“DO PARA EVI-” 

PRINT AT 5,1;D$ (A) 

PRINT AT 5,14;C8 (D) 


PRINT AT 6,1;“TAR QUE SE ESTRAGUEM.” 
PRINT AT 7,3;“LEVE ATE O SR. ESTE” 
PRINT AT 7,18;ES (E) 

PRINT AT 8,12;CHEIO DE PA-" 


PRINT ATB8,1;CS (A) 

PRINT AT 8,21;AS (A) 

PRINT AT 9,1;"RA LAVAR.” 

PRINT AT 10,3;“ESCOVE SEU ANTES DE” 
PRINT AT 10,14;ES (F) 

PRINT AT 11,1;"LAVAR SUAS” 

PRINT AT 11,12;DS (A) 

PRINT AT 13,4;TCHAU, E UM GRANDE” 

PRINT AT 13,23;€8$ (C) 

PRINT AT 14,1;“DE SUA QUE TE AMA.” 
PRINT AT 14,8;B$ (B) 

PRINT AT 17,9;"ASS:" 

PRINT AT 17,14;FS$ (F) 

PAUSE 2000 

ga 16437,255 


C 

PRINT AT 2,4;/PERDEU-SE UM QUE” 
PRINT AT 2,17;C8$ (A) 

PRINT AT 3,1;/ATENDE PELO NOME DE” 
PRINT AT 3,21:E8 (E) 

PRINT AT 5,4:“ELE TEM UM PEQUENO” 
PRINT AT 5,23:C8 (B) 

PRINT AT 6,1;“ATRAS DA ORELHA.” 

PRINT AT 8,4:“CUIDADO ELE ATACA QUANDO VE” 
PRINT AT 9,1;/“UMA” 

PRINT AT 9,5:B$(B) 

PRINT AT 11,4:ºNAO DE PARA ELE,” 
PRINT AT 11,11/A$ (A) 

PRINT AT 12,1;/POIS ELE SO COME” 

PRINT AT 12,18;B$ (D) 

PRINT AT 14,4:/POR FAVOR ENTREGAR NA RUA” 
PRINT AT 15,1;/DAS SEM NUMERO” 
PRINT AT 15,5:B$ (C) 

PRINT AT 17,4:/FALAR COM DONA” 

PRINT AT 17,19:FS (F) 

PAUSE 2000 

POKE 16437,255 

CLS 

GOTO 600 
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DINAMITE 


Neste jogo você passará a trabalhar numa fábrica de dinamite, mas 
não como um carregador de caixas, e sim como agarrador de caixas, 
infelizmente com um colega de trabalho um pouco descuidado, pois 
ele simplesmente atira caixas lotadas de dinamite para que você as 
pegue. 

Como hoje em dia não se deve confiar em ninguém (nem em si 
mesmo, pois de vez em quando você morde a língua), NÃO espere que 
seu “amigo” atire as caixas em suas mãos, mesmo porque ele não o fará, 
talvez uma vez ou outra. 

Seu objetivo maior é “salvar sua pele”, evitando que as caixas caiam 
no chão, caso contrário “meus pêsames”. 

Vocêéo"” “" (ESPAÇO) 

As caixas são o “ E * (ASTERISCO INVERSO) 

Seus controles são: 

“5” ESQUERDA 
“8” DIREITA 

BOA SORTE (cá entre nós... com amigos como esse pra que ini- 

migos?) 


PROGRAMA DESENVOLVIDO PARA A LINHA SINCLAIR E COMPATÍVEIS 


do. RO Ao DS dO DO DD O BO DA O Do Do DD DU o QU 


Ç 


21000000 DODDHAÃDO OCO 


1 REM DINAMITE 

5 REM SIDNEY PARETTI 
10 RAND 
20 SLOW 
26 FORJ=GOTO pis 





28 NET s 


30 PRINT AT 0,0; “ooo ram 
CXEEEEEEEEI 

35 PRINT AT 1,0" [REREERESEEKEECECEEECE 
CEEE 


40 PRINT AT 21,0" RE 
ES 


55 PRINT AT 21,18;“PONTOS: % 


70 LET PO = O 
80 LETK=Q 
90 LETP = 14 


160 FOR N=GTO 10 

110 LETS=INT(RND*30) —1 

111 LET PO=PO +10 

120 FOR F= GTO 20 

125 IF F=20 ANDS=PTHEN PRINT AT 21,18;“PONTOS:';AT 
21,27:PO 

130 IFP< GTHEN LETP=Q 

140 IFP> 28 THEN LET P=28 

150 IF INKEYS =“5" THEN LET P=P-—1 

160 IF INKEYS$ =“8" THEN LETP =P+1 

175 IFF=20ANDS< >PTHEN GOTO 3460 

180 PRINT AT FSM 

185 PRINT AT Es RES A 

196 PRINT AT20,P;"&4 E 

200 NEXT F 

216 NEXT N 


300 PRINT AT 0,9: REEEEREEAEEEEEEEE 
EXEXEEEKCO * 
301 PRINT AT 1.0: PREEEEIEEICEEEEEO 
CICXEEICO * 











302 PRINT ea a ERREI SRS 
Ro senao a 
303 PRINT AT T 20, 0; 

E e 

305 PRINT AT9 7;PARABENS VOCE FEZ” 

309 PRINTAT 11,10;/PONTOS: “AT 11,18:P0 


320 PAUSE 120 

325 POKE 16437,255 

336 GOTO 431 

340 FORG=0 TO 6 

342 PRINT AT20,S; as que! 

346 PRINT AT 19,5-3; “ge 
347 PRINT AT 18,S;“ ” 

348 PRINTAT17,S-1;” E“ 

349 PRINT AT 16,5-2;” TER 


Ooo DODAlO Ah E 


A 


EM MO Me DECS RSA RE RR RM me! 


e. 


ia 





350 PRINT AT 15,8-2;” 
351 PRINT AT 14,51; Hamamalill 
352 PRINT AT 13,5; MM 

353 PRINT AT 12,5: 2 

403 NEXT G 

406 FORN= 0 TO21 


407 PRINTATN, Mecessererenceneacaseso 


408 NEXT N 

409 LETPO=PO — 10 

410 PRINT AT 11,5;/SEUS PONTOS FORAM  “;AT 11,25;P0 
415 PAUSE 126 

420 POKE 16437,255 

431 PRINT AT 11,3;/QUER JOGAR DE NOVO (S/N)?” 
432 INPUT X$ 

435 IF X$ = “S” THEN GOTO 437 

436 IF X$ = “N” THEN GOTO 439 

437 CLS 

438 RUN 

439 FORM=0TO21 

490 PRINT AT MO Ta «e 






500 NEXT M 

520 FORG= 0T021 
535 SCROLL 

540 NEXT G 

541 STOP 

542 SAVE “DINAMITE” 


543 STOP 
DIGIKIT - DIGIKIT - 
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Como em tudo que fazemos na vida sempre existe uma barreira, 
este jogo não fica atrás. Seu objetivo é eliminar a maior barreira mutante, 
isto é, mutante porque cresce e diminui, que fica bem abaixo no video, 
mas para eliminar essa barreira você tem que evitar as outras barreiras 
(também mutantes) existentes no centro do video. Em suma, você deve 
desviar de barreiras para eliminar outra barreira (bem de acordo com 
a nossa vida cotidiana). 

Caso acerte uma barreira indesejável, haverá destruição total de 
suas estruturas (igualzinho as nossas vidas...), mas, se conseguir eliminar 
a barreira principal será um homem bem sucedido (no jogo, bem enten- 
dido...) marcando uns míseros pontos (Hal... parece piada). 

Como você é um homem que não pára (lógico, na tela) tem que 
ser bastante astuto para eliminar a barreira principal. Há uma pequena 
vantagem, se estiver se deslocando para a esquerda e apertar a tecla 
correspondente à esquerda, irá mais rápido para a esquerda, caso aperte 
a tecla correspondente à direita, você ficará imóvel, e o mesmo aconte- 
cerá para a direita, mas só que com os controles correspondentes ao 
movimento. 

Você é o “0” 

A barreira principal é o “EJ” (ASTERISCO INVERSO) 

As barreiras indesejáveis são o “ [8 (ESPAÇO INVERSO). 

Tente fugir à regra e elimine a barreira principal (para tornar o jogo 
mais emocionante imagine que essa barreira seja o dinheiro). 


PROGRAMA DESENVOLVIDO PARA A LINHA SINCLAIR E COMPATÍVEIS 


so BbBHAOrLLDDaADGDOROSL 


da, 


C 


Jão DADOLAROC HARAS 


“da, 


1 REM BARREIRA 
2 REM SIDNEY PARETTI 


SLOW 

DIM D$ (6,3) 

LET PO = 

LETC=3 

LET B=26 

LET F=27 

LET A=28 

LET I=1 

LETE =1 

LET D=1 

LETG=1 

LETJ=1 

LETK=5 

LETW= 13 

LETO=1 

LET R=1 

LET P=26 

LET DS (1) = “EH 
LET D$ (2) = “SE” 
LET D$ (3) = rés 
LET D$ (4) = 10 


LET AS - É ecc 


FOR r=1 TO 








103 


186 


PRINT AT 7,0;AS;AT 10,0;A$;AT 13,0;AS;AT 16,0;AS;AT 
19,6;AS 

FOR N=GTO 20 

LETC=C+| 

LETB=B+E 

LETA=A+D 

LETF=F+G 

LTE P=P+J 

LETK=K+0 

LETW=W+R 

IFP< O THEN LET P=0 

IF P> 28 TEHN LET P=28 
IFC=20RC=10THENLETI=I[*—1 
IFB=80RB=21THENLETE=E*-—1 
IFA=200R A=29THENLETD=D*—1 
IFF=GORF=29THENLETG=G*—1 
IFP=GORP=28THENLETJ=J*—1 
IFW=120RW=24THENLETR=R* —1 
IFK=GORK=12THENLETO=O *—1 
IF INKEY $ = “0” THEN GOSBU 1500 

IF INKEY $=5" THEN LET P=P-1 

IF INKYE $ = 8" THEN LET P=P+1 
PRINT AT 00 E 
PRINT AT 19,A:D$(1) 

PRINT AT 16,8;D$(1) 

PRINT AT 13,C:D$(1) 

PRINT AT 10,K;D$(1) 


oO OCO ÇDAODOLLÃOOLO L 


P, 
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187 PRINT AT 7,W;D$(1) 
190 PRINT AT 21,F;D$(2) 
200 PRINT AT G,P;” O” 
500 GOTO 100 
1500 FORL=0TO21 
1501 IFL=19ANDP> =AORL=16ANDP> =BAND P<21 
OR L=13ANDP> =CANDP< 100RL=1GANDP> =K 
ANDP< 120RL=7ANDP>=WANDP< 24THENGOTO 
2000 
1502 IFL=21 ANDP>=F THEN GOTO 3500 
1600 PRINT AT L,P;DS(3);AT L,P;D$ (4) 
1706 NEXT L 
1710 PRINT AT 7,0;AS;AT 10,6;AS;AT 13,0;AS;AT 16,G;A$;AT 
19,0;AS 
1800 RETURN 
2000 FORX=0TO 21 
2100 PRINTATX,O0;/DESTRUICAO TOTAL” 
3000 NEXT X 
3100 GOTO 2000 
3500 FOR F=GTO21 
3510 LET PO=PO+1 
3520 PRINT AT 3,1;PO 
3530 NEXT F 


3535 PRINT AT 7,0;AS;AT 10,0;AS;AT 13,6;AS;AT 16,0;A$;AT 





19,0;A$ a 
3536 PRINT AT 21,0; 'Jsssanaaeas ER 
3546 RETURN 


ATENÇÃO: NA LINHA 2106 TANTO AS LETRAS COMO OS ESPA- 
ÇOS SÃO EM INVERSO. 
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Prepare-se, pois a Terra está prestes a ser invadida pelos seres 
EXTRA-TERRENOS, ou mais especificamente, pelos “NHAKUS”. 

Você como um bom terráqueo deve evitar a invasão dos “NHAKUS”, 
que por sinal são muito espertos e possuem as bombas da temível “NHA- 
KULOSE” (doença fatal aos terráqueos). 

Antes de tentarem invadir a Terra, os “NHAKUS” soltam bombas 
de camuflagem, bem parecidas ou iguais à “NHAKA” (NAVE MÃE), 
principal invasora que você deve deter com suas bombas “ANTI-NHA- 
KA”, 

Cada “NHAKA” que você acertar ganhará 504 pontos, caso não 
consiga alcançar uma “NHAKA” em tempo há um refugo de um tiro 
no ar, só que perderá 10004 pontos, não se assuste se seu placar for nega- 
tivo, pois você tem uma tolerância de até -500G pontos, caso contrário, 
será um portador da famosa doença chamada “NHAKULOSE”,. 

Você é o “X” 

Seus controles são: 

“5” ESQUERDA 
“8” DIREITA 
“Q" TIRO. 
CUIDADO NÃO SEJA UM NHAKULOSO. 


PROGRAMA DESENVOLVIDO PARA A LINHA SINCLAIR E COMPATÍVEIS 


» DOADO DO cc 


) 


1660600000 02900 0,00 Q 


1 REM NHAKUS 
2 REM SIDNEY PARETTI 


5 
6 


230 

240 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1065 
1070 
2000 


RAND 
POKE 16418,0 
LETP=Q 
LETY=11 

FAST 

FOR F =Q TO 767 
PRINT CHR$ 128; 
NEXT F 

PRINT AT 22,1;“PONTOS: n 

SLOW 

LET N= INT (RND * 28) 

FOR F=0TO21 

IFY< GTHENLETY=Q 

IF Y> 28 THEN LET Y =28 

PRINT AT RND * 20,30 * RND; CHR$ INT (RND * 10) 
IF F=8 THEN PRINT AT 22,18; “CUIDADO” 

IF F=12 THEN PRINT AT 22,18;” ” 

IF INKEY$ = 5" THEN LET Y=Y —1 

IF INKEY$ = “8º THEN LET Y = Y+1 

IF INKEYS = 0" THEN GOTO 1000 

PRINT AT 20,Y;“ Hx “ 





PRINTAT EN; ESM AT EN 
IF F=20 TEHN GOTO 2000 
NEXT F 


FOR C=20 TO FSTEP— 1 
IFY=NANDC=FTHENLETP = P+50Q 
IFY< >NANDC=FTHEN LETP=P- 750 
IF P< 1000 THEN PRINT AT 22,8;“ sa 

IF P< —5000 THEN GOTO 2000 

PRINT AT C,Y;“ EH AT cy; A O 
NEXT C 

PRINTAT 22,8;P 

GOTO 135 

FOR F=GTO 20 





SSSESSS 
2020 
2030 PRINT AT 11,4;”AGORA VOCE E UM NHAKULOSO” 
2040 PRINT AT RND * 2630 * RND; CHR$ INT (RND * 10) 
2050 GOTO 2040 
2060 STOP 
2070 SAVE “NHAKUS” 

2080 STOP 
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Neste jogo você será um ladrão, e um ladrão motorizado, pois 
possui um carro com motor BASIC, lógico, afinal de contas você é um 
ladrão (no jogo, bem entendido), e não pode possuir um motor ASSEM- 
BLY (pelo menos por enquanto). 

Na tela aparecerá nove quadrados, sendo que o centro de cada um 
deles possui uma avenida na vertical (constituídas de caracteres ponti- 
lhados) que são fechadas na parte superior. Estas avenidas só podem ser 
ultrapassadas de baixo para cima. Nelas estão todos os bancos da cidade 
que você irá roubar, mas pelas outras ruas existem em alguns pontos, 
policiais que guardam a cidade. Como seu tempo é limitado, terá que 
planejar o melhor itinerário para executar seus furtos. Não tente roubar 
uma avenida duas vezes, pois as avenidas roubadas serão protegidas 
por portões eletrificados, o que ocasionará sua morte por eletrocussão. 

Seus controles são os do joystick: 

“5” ESQUERDA 

“8” DIREITA 

“6” PARA BAIXO 

“7” PARA CIMA 
Seja um bom ladrão, mas só no jogo. 


Ds 


Seu ladrão! 


PROGRAMA DESENVOLVIDO PARA A LINHA SINCLAIR E COMPATÍVEIS 


OOo OO OO OOGO E 


) 


000060060 %00000000€ 


) 








1 REM SEU LADRAO 

5 REM SIDNEY PARETTI 
10 RAND 

20 POKE 16418,0 

30 LETPO=Q 

49 LETX=0 

50 LETY=Q 

55 LET U = 200 
60 LETC=Q 

70 LET D=INT(RND * 25) 
72 LETA=21 

74 LET B= INT (RND * 28) +2 
80 LETAA=6 
90 LETAB=6 
100 LET AC=6 
110 LET BA = 16 
120 LET BB=16 
130 LET BC=16 
140 LET CA=26 
150 LET CB = 26 
160 LET CC = 26 
170 LETS=7 
180 LET | = INT (RND * 30) 
190 LETK = 14 
200 LET O = INT((RND * 29) +2 
210 LET T=21 
220 LET P=INT(RND * 31) 
230 LETV=5 
240 LETO=15 
250 LETW=25 


260 LET A$=" E== == 


E . Ea mn 
Ea Ê 
280 LET C$ =“ Ea Ee e all 


290 PRINT AT 1,0;A$;AT 8,6;A$;AT 15,6;A$ 

300 FORG=2T0O6 

316 PRINT AT G,6;BS$S;AT G + 7,6;BS;AT G+ 14,6;B$ 

320 NEXT G 

330 PRINT AT 6,6;C$;AT 13,0;CS;AT 20,0:C$ 

340 PRINT AT 22,1;“PLACAR:";AT 22,16: TEMPO:” 

345 PRINT AT S,I;“G";AT K,Q;“G";AT T,P;“GSAT A,B;“G':AT 
CD: *G” 

350 FORF=GTOU 

351 LETU=U-—1 

352 IFU<1GADNU>8THEN PRINT AT 22,22; é 

353 IFU< 100 AND U>98 THEN PRINT AT 22,22: g 

355 PRINT AT 22,22;U 

360 IFX<GTHEN LET X=G 

370 IFX> 21 THEN LET X= 21 

380 IFY<GTHEN LET Y=Q 

390 IFY> 30THEN LET Y =30 
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O 0800000000 0V0UTÃY 


atvols,eoRcerocoooso Os 


da, 


510 


520 
530 
540 
550 
560 


570 
580 
600 
610 
620 


630 

650 

660 
1010 
1020 
1030 
1040 
1050 
1070 
1980 
1090 
1100 
110 
1120 
1130 
1140 
1150 
160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1255 
1260 
1500 
1510 


IFX=SANDY=I0ORX=KANDY=QORX=TANDY=P 
ORX=AANDY=BORX=CANDY=DTHENGOTO 2000 
IF INKEY$ = “5” AND X/7 = INT (X/7) THEN LET Y = Y —1 
IF INKEYS$ = “8” AND X/7 = INT (X/7) THEN LET Y = Y +41 
IF INKEYS = "6" AND Y/10 = INT (Y/10) THEN LET X= X+1 
IF INKEYS$ = “7” AND Y/5= INT (Y/5) THEN LET X =X -1 
IFY=VANDX=10RY=VANDX=80RY=VANDX= 
15 THEN GOTO 1000 
IFY=OANDX=10RY=OANDX=80RY=OANDX= 
15 THEN GOTO 1000 
IFY=WANDX=10RY=WANDX=80RY=WANDX= 
15 THEN GOTO 1000 
IFX=6ANDY=AAORX=6ANDY=BAORX=6ANDY= 
CA THEN GOTO 1500 
IFX=13ANDY=ABORX=13ANDY=BBORX=13AND 
Y = CB THEN GOTO 1509 
IFX=20ANDY=ACORX=20ANDY=BCORX=20 AND 
Y = CC THEN GOTO 1500 

PRINTATXY[BUATXy; 

NEXT F 

GOTO 2500 

LET R= INT (RND * 12) 

IF R>6 THEN LET PO = PO + R 

IF R<27THEN LET PO=PO-R 

IF PO> 19 THEN PRINT AT 228; 

IF PO > 100 THEN PRINT AT 228; ' 
IFX=1ANDY=VTHENLETAA=5 

IFX=8 AND Y=VTHENLETAB=5 

IF X=15ANDY=VTHENLETAC=5 
IFX=1ANDY=OTHEN LET BA= 15 

IFX=8 AND Y= OTHEN LET BB= 15 

IF X=15ANDY=0 THEN LET BC= 15 

IF X=AND Y=WTHEN LET CA=25 

IFX=8 AND Y=WTHEN LET CB=25 
IFX=15ANDY=WTHEN LETCC=25 

PRINT AT 22,8;P0 

PRINT AT 6,AA;“HH' 

PRINT AT 13,A8;“8” 

PRINT AT 20,AC;' 

PRINT AT6BA;” 

PRINT AT 13,88;“8" 

PRINT AT 20,BC;' 

PRINT AT 6,CA;“RB” 

PRINT AT 13,CB;' 

PRINT AT 20. code” 


LETX= X—1 
GOTO 350 
PRINT AT 12,5;ºVOCE FOI ELETROCUTADO" 


PRINT AT 12,5;“VOCE FOI ELETROCUTADO” 


1520 GOTO 1500 
2000 PRINT AT 12,9;“VOCE FOI FRESO" 
2010 PRINT AT 13,974 


2020 PRINT AT 13 PErErLErER 


2030 GOTO 2010 
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2500 PRINT AT 12,8;“SEU TEMPO ACABOU.” 
2510 PAUSE 200 

2520 POKE 16437,255 

2530 PRINT AT 12,8; TENTE OUTRA VEZ” 
2540 GOTO 10 


ATENÇÃO: NA LINHA 1510 TANTO AS LETRAS COMO OS ESPA- 
ÇOS SÃO EM INVERSO, 


Cartuchos para ATARI 












































40 CRYPTS OF CHAOS 83. KING KONG 124- SPACE CAVERN 
41- CROSS FORCE 84- LASER BLAST 125- SPACE CHASE 
42 CUSTER'S REVENGE ES. LOST LUGGARE 126- SPACE INVADERS 
43: DARK CAVERN E6- LOCK'N CHASE 127. SPACE JOCKEY 
44- DEALY DUCK 87-M. A. D. 128- SPACE WAR 
45. DEMON ATTACK 88- MARAUDER 129- SPIDER FIGHTER 
44- DEMOS TO DIAMONDS (P) 89 MASH 130- SPIDER MAN 
47- DODGE'EM 90- MATH GRAND PRIX 131- SNAKE 
48- DEFENDER 91- MEGAMANIA 132 STAMPEDE 
49. DOLPHIN 92- MINES OF MINOS 133 STAR MASTER 
SG DONKEY KONG 93- MISSILE COMMAND 13M-STAR SHIP 
$1- DRAGON FIRE 94. MOUSE TRAP 135- STAR VOYAGER 
|- ADVENTURE $2- DRAGSTER 95. NEXAR 136- STAR WARS 
2- AIRLOCK 54 EGGMANIA (P) 96- NIGHT DRIVER (P) 137- SUB SCAN 
1- AIR RAIDERS 54- ENDURO 97. NO SCAPE 138- SUPER BREAKOUT 
4 AIR SEA BATTLE 55- ENCOUTER AT L-S 98- OINK 139: SUPER FOOTBALL (P) 
s- ALIEN 56-FANTASTIC VOYAGER 99. OTHELO 140- SUPERMAN 
6: AMIDAR $7- FAST EDDIE 100 OUTLAW 141. SURROUND 
7: ARMOR AMBUST $8- FAST FOOD 101- PAC MAN 142- TAC SCAN (P) 
& ASTROBLAST 59. FINAL APPROACH 102- PELE'S SOCCER 143- TAPE WORN 
9. ATLANTIS 60- FIRE FIGHTER 103 PITFALL 144- TENNIS 
10- BACHELOR PARTY (P) 61- FISHING DERBY 104- PLACK ATTACK 145- THRESHOLD 
ti» BANCK HEIST 62- FLASH GORDON 105- PLANET PATROL 146- TOWERING INFERNO 
12 BARNSTORMING 63- FLOGS AND FLIES 106- PRISÃO MORTAL 147- TRICK SHOOT 
13 BASIC PROGRAMING (K) 64- FOOTBALL 107- Q. BERT 148- TOUPEIRA (GOPHER) 
t4- BASKETBALL 65- FREE WAY 108- RACQUETBALL 149- TRON 
15- BEATEM ANDEATEM (Pp) 64- FROGGER 109- RAMIT 150- VENTURE 
16- BEANY BOPPER 67. FROST BTTE 110 REACTOR 151- VIDEO CHECKERS 
17. BERZEK 68- GAMÃO 111 RIDDLE OF THE SPHINX 152- VIDEO CHESS 
I8- BOWLING 69- GANGSTER ALLEY [13 RIVER RAID 153- VIDEO OLIMPCS (P) 
19- BOXING 70- GOLF 113- SCREAMING 154- VIDEO PINBALL 
20 BERMUDE TRIANGLE 71- GORF 114- SEAQUEST 155- VOLLEYBALL 
21. BLACK JACK 72- GRAND PRIX 115-SHARCK ATTACK 156 WABBIT 
22. BRAIN GAMES (K) 73 HANG MAN 116 SHOOTIN' GALLERY 157. WAR LORDS (P) 
23. BREAKOUT 74- HAUTED HOUSE 117- SKING 158-WAR PLOCK — 
24. BRIDGE (P) 75- HOME RUN 118-SKY DIVER 159: WIZARD OF WOR 
28. BUGS 76-ICE HOCKEY 119: SKY JINKS 160- WORM WAR 1 
26- CANYON BOMBER (P) 77: INFILTRATE 120- SLOT RACERS 161- WORD ZAPPER 
27: CARNIVAL 78- INTERNATIONAL SOCCER 121- SNEAK'IN PEEK 162: YAR'S REVENGE 
38 CASSINO 79- JAW BRAKER 122- SNOOKER 163- X-MAN 













39. CHECKERS UU 80- JOURNEY SCAPE 123- SPACE ATTACK 
36 CHOPPER COMMAND 81-KABOON | 
31- CIRCUS ATARI 82. KEYSTONE 
32- COBRA STIKE 

33 COCO NUTS 

34- CODE BREAKER (K) 
35- COMMAND RAID 

36- CONCENTRATION 
Y7. COSMIC ARK 

38- COSMIC SWARM 

19 CRACKPOTS 
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MILIONÁRIO 





Todos nós temos a incrível tendência de ser um milionário (não sei 
por que!?). 

Neste jogo você será um famoso milionário (já é alguma coisa...), 
muito desconfiado e também muito precavido, pois leva seu dinheiro 
desde sua casa até o banco, sozinho e sem qualquer escolta. Como em 
toda metrópole que preste, tem por obrigação possuir “alguns” ladrões 
em toda parte, este jogo também possui ladrões, pois ele simula uma 
metrópole. 

Seu objetivo é evitar ser roubado durante o trajeto, o que será um 
pouco difícil, já que existem ladrões que simplesmente surgem do “'na- 
da”. 

Como você pode carregar seu dinheiro aos poucos, terá que fazer 
várias viagens. Se tiver um pouco de sorte, ou melhor, muita sorte, 
conseguirá com muita manobra fazer mais do que uma viagem. 

Seus controles são os mesmos do joystick: 

“5” ESQUERDA 
“8” DIREITA 

“6” PARA BAIXO 
“JP” PARA CIMA 


PROGRAMA DESENVOLVIDO PARA A LINHA SINCLAIR E COMPATIVEIS 


VU )ULUMONãLL4GOUG ÃO LDL 


) 
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3100006000 6 0 0 92 0 0 0 0 


515 

600 

800 
1500 
1503 
1504 
1505 
1518 
1520 
1523 
1524 
1525 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1559 
1560 
1570 


RAND 

SLOW 

LET AS SR 
FOR N=0TO21 

PRINT AT NO; E 
NEXT N 

FORN=1TO4 

PRINT AT N,6;A$;AT N + 5,0;A$;AT N + 16,6;AS;AT N + 15,6; 
AS 

NEXT N 

LET PO =Q 

LETN = 0 

LETV = 6 

LETW = 30 

LETM = 20 

FOR F=0T031 

LET B= CODE INKEY$ 


IFN<GOTHEN LETN=0 

IFN>20THEN LET N = 20 

IFV<GTHEN LET N=] 

IFV>30THEN LET V=36 

LET S=INT(RND*20)-N+N 

LET K = INT (RND * 30) -1 

IF B=33 AND N/5= INT (N/5) THEN LET V=V-1 
IF B=34 AND V/5= INT (V/5) THEN LETN=N+1 
IFB=35 AND V/5= INT (V/5) THEN LETN=N-1 
IF B=36 AND N/5= INT (N/5) THEN LET V=V+1 
IFN=MAND V=WTHEN GOTO 1500 
IFN=STHEN GOTO 1556 

PRINTATSK;*” 

PRINT ATN,V;OAT NV; 

PRINTAT MW; [E " 

NEXT F 

GOTO 400 


PRINT AT 12,11; MM 
PRINT AT 13,11; MNA 
PRINT AT 14,11,“ 
FORQ=0TOS 
LET PO=PO +10 
PRINT AT 14,14;P0 

NEXT Q 

GOTO 32 

LETA$="  LADROES LADROES  LADROES “ 
FORN= GTO21 

PRINT AT N,0;" O 
NEXT N 

FORN=1TO4 

PRINT AT N,G;AS;AT N + 5;0;AS;AT N + 10,0;AT N + 15,0;A$ 
NEXT N 

PRINT AT 9,0; DR 
PRINT AT 10,4;“SEUS PONTOS FORAM:";PO 


PRINT AT 11,0 
GOTO 1 
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Se você é um autêntico viciado em vinte e um, e costuma jogar a 
dinheiro ao ponto de apostar sua mãe (e perder), não corra mais este 
risco, passe a jogar com seu microcomputador. Mesmo jogando a dinhei- 
ro, jamais sairá perdendo, pois seu computador não poderá cobrá-lo, o 
máximo que poderá acontecer é ser desmoralizado por ele. 

Este programa sorteia cartas, abertas ou fechadas, desafiando-o 
para uma nova partida, e duvida ser capaz de perder na maioria das 
vezes. 

Só há um problema, se ganhar do seu micro não conte a ninguém, 
pois dirão que você é um usurpador de micros indefesos, da mesma for- 
ma, se perder dirão que perdeu para uma insignificante ““maquininha de 
calcular”. 

NOTA: Não esmurre seu micro se perder dele (custa caro). 


Ç 


PROGRAMA DESENVOLVIDO PARA A LINHA TRS-80 E COMPATÍVEIS 


1 CLS:CLEARZÕOO 

2 PRINTSTRINGE (67.61) 

* PRINTDI 464. STRINGS (Z6o. 61) :PRINTDOLAH64+27,." VIN 
TE E UM "STPRINTDOIH64+rZ9. "STRINGS (724.61) 

4 PRINTOZZHASA. STRINGS (62.61) 

à PRINTO4AH64, "ESTE JOGO CONSISTE EM UM SORTEIO 
DE 1 A & CARTAS. CUJA INTFNSAN E” DE TENTEOR Faz 

ER O MATOR NUMEROS DE POSSIVEL SEM ULTRA-PASSAR 
24 UU 

& FRINTO7*H64., "PODENDO OU NAO TER & PRIMEIRA CAR 

TA ARERTA Oll FECHADA.AS CARTAS TERA SEUS VALOR 
ES DE 1 4 10 NORMALMENTE. SENDO QUE O VALETE=].O 
REi=k E A RAINHA=0 TEKRAO SEUS VALORES IGUAIS A 


20) Hm º 


oo) VOA ÇChDHDAlgRÃAaALO 


) 


C 


10 0000000000 00 0090 


7 PRINTOIIH64. "OS NAIFES SERAO REPRESENTADOS FE 

LAS SUAS RESPECTIVAS INTCTAIS."s 

a FORAÍ=1TOLOO:PRINTDI Ex64+2. STRINGS (60. E2) 2: FOR 

AZ=1TOIL0OO:!NEXTAZ ZPRINTOL Z+64+2."P/ COMECAR PRE 

SSTONE A BARRA DE ESPACO."::FORAZ=1T0O100:NEXTAS 

*ASB=INKEY$: IFASS=CHRS (E?) THEN 10 ELSE NEXTAL 

? PRINTO1LS464. STRINGS (62.61) 

aa CLSIPRINTSTRINOS (62. 61): FRINTOB+64, "QUER CAR 
iss PRINTO/464+15, "ABERTA<DIGITE- -1> "S:FPRINTOS 

cai CERCADA ADIGITE-22>."3 

11 A6E=INKEYS: IFA6S=""THEN 11 

12 IF A6$="1"THEN 216 


13 IF A6$="2Z"THEN 14 


14 CLS: W=0: =0 

15 FOR U=1TO6 

16 RANDOM 

17 I=RND(13):N=RND(4) 

18 ON U GOSUE 175, 151.157-163. 169 

19 IF U=ITHEN NEXTU 

£z0 ON IGOSUE 111,113,118.121.124,127,130,133. 13 

6 139.142. 145.148 

21 Ca=W:W=C2+1 

22 V=W 

23 IF 1=11 THEN W=V+9 

24 IF [=12 THEN W=V+8 

29 TF 1=13 THEN W=V+7 

to PRINTH 4H64+42. "SOMA ="5Ws 

7 IFU=6 THEN 33 

2E PRINTOLAH64+2. "DESEJA MAIS CARTAS (S/N)?."3 
9 ASS=INKEVS:I TF ASG=""THEN 29 

350 TF AS$="Nº THEN 33 

31 TF AS$="S" THEN PRINTDOL4464+2. STRINGS (TO. 32) 
: NEXTU 

a? TF AXEL >"S"OR ASSES P"N' THEN 28 

“3 PRINTOLS464+1. "VOCÊ AINDA TEM À CARTA OCULTA: 
GOSTARIA DE VELA (S/N)2,''s 

“a A48=[INKEVES TF AdSG=""THEN 34 

SS IF A4$="S" THEN 38 

Sé IF Ags="Nº THEN 70 

7 IF A4$5>"5" OR A4$5>"Nº THEN SS 

SE IF W>21 THEN 70 


420º 

44 "jets 2zz ROTINA DA CARTA OCULTA 25 sata 
42º 

43 * 

44 R=RND(13):N=RND(4) 

43 GOSUR 175 

46 GOSUR 203 

47 IF R=11 THEN POKEG. 74: POKEH. 74 

46 IF R=12Z THEN POKEG. B1:POKEH.81 

49 IF R=13 THEN POKEG. 75: POKEH. 75 


50 IF K=1 THEN POKEG, 49: POKEH. 49 
a) IF R=2 THEN POKEG. 50:POKEH. 50 
W IF R=& THEN POKEG.51:POKEH.S1 
SS IF R=4 THEN POKEG. 52:FOKEH., 52 
54 IF R=5 THEN POKEG. 53: POKEH. SE 
5% IF R=6 THEN POKEG. 54: POKEH. 54 


ooo o) 000000000O E 


oo LaADOOODADHODÃTE 


R 


&é IF R=7 THEN POKEG.55:FPOKEH.55 
S7 IF R=8 THEN POKEG. 56: POKEH. 56 
sã IF R=9 THEN POKEG.57:POKEH. 57 
“9 IF R=10 THEN POKEG.49:POKEG+1.48:POKEH. 49:POQ 
KEH+1.48 

60 D3=W 

61 W=D3+R 

672 tE=Ww 

63 IF R=11 THEN W=kK+9 

ba TF K=12 THEN W=k+a 

65 IF R=13 THEN W=kK+7 

bt PRINTD!4H54+42. "SOMA ="2UWs 

&7 FORM=3 TOS00:NEXTM 


GO? * 
7O “es 22: ROTINA DE CARTAS DO COMPUTADOR 


* 


Ra * 

73 CLS:RANDOM 

74 FOR L=1TOS 

75 S=KND(13): T=RND(4) 

76 EZ=Q:0=E2+S 

77 Z=Q 

78 IF S=11 THEN 0=7+9 

79 IF S=12 THEN 0=72+8 

80 IF S=1%Z THEN 0=7+7 

41 TF Q<15 THEN NEXTL 

2 * 

Bs ? 

4 Costas 242 ROTINA DE CONDICOES 11224644 

Ba * 

36 * 

37 IF 0=15 OR 0<=21 THEN FRINTOB+64. "A BRANCA TE 
"sos 

ES PRINTOZH64A, "VOCE TEM "aWs 

A? TF W=21 AND N=Z THEN FOR M=ITO S:PRINTD4GX54A. 

STRING& (30.32): FORD=1TOLOONEXTD PRINT IGEAS. "VÇI 

CE GaNHOL"sS LFORD=1TOLOO! NEXTD:EPRINTISHS4S. STRING 

& (30. 32) 2 FORD=1 TOLOO:NEXTD:!PRINTOSHAS. "VINTE UM 

ROvAL"sFORD=1TOLOO:!NEXTD:INEXTM 

vo TE WD21 THEN FORM=SITOSIPRINTIOHS4. STRINGS CÃO 

+ A) SFORD=SIT0100:NEKTDO:IPRINTDARSAS. "VOCE ESTOURO 

"Ss: PORD=1T0OL00:NEXTD:ENEXTM 

91 TE 0>21 THEN FúRM=I TOSEFPRINTOI 2464. STRINGE (5 

O. 352 sFOR D=1TOLO0O: NEXTD:IFRINTDL?P +64. "MEL ESTOUR 

ELºsS:FORD=1TOIOOsSNEXTDINEXTM 

We TE W>21 ND G>21 THEN FORM=A TOS PRINTO Ec64+ 

20» STRINGS (40. EX) :FORD=1 TOLOO NEKXTDIFPRINTOLS 464 

+20. "NINGUEM GANHOU" s 3: FORD=1TO100: NEXTDINEXTM 

sã TE W521 AND G4x=21 THEN GÚSUR 245 

ve TE wW<21 AND 0>21 THEN FORM=1ITOSIFRINTOEH64,S 

TRINGE(ZO. 2) FORD=ITOLOOINEXNTDE Prel Tao. "VOC 

E GANHOU" SSFORD=1TOLOO NEXTDENEXTM 

va IF wW5Q AND W<21i THEN FOR M=ITO S:IFRINTDZAH64. 

STRINGS (30.32): FURD=1ITOLCO:NEXTD: PFRINTDOSHAS. "VA 

CE GANHOL"sS SFORD=1T0OL00:NEXTDENEXTM 

S6 IF W<O AND 0<21 THEN GOSUB 245 

7 TF 0=21 AND T=Z THEN GOSUE 2Z69 


GOO OTDOODONDOTLODOODODO OVO ÃO FEL 


) 


C 


J0e0oeArROnO O OO 0 0 0 DQ 


98 IF wW=0 AND QS21 THEN 299 


GS 

100 
101 
102 
103 
104 


* 


> 


Poetas 2 23 ROTINA FINAL 25 


2, 


2 


PRINTO15H464. "DESEJA JOGAR MAIS UMA FARTIDA 


(S/N). "3 


105 
106 
107 
108 


KIS=INKEYS: IF KEl$=""THEN 105 

IF K1i$="5S" THEN 1 

IF Kig="Nº THEN END 

IF K1i$<>"S" OR KiS<>"N" THEN 104 


109 * 


110 
111 

112 
115 
414 
115 
114 
117 
118 
119 
120 
121 

122 


1 44% 
LESS 
E Ger 
152 
185 

32 


O *mmesteophneS 5 


> demos ao T=1 208 4 
POKEG. 49: FOKEH. 49 
RE TUR 
"Meets 3 ns J=2% 
FOKEB. 50: POKEH. so 
RETURN 
* deteotas 54 T=3 8 
PúrE£s. S1+4 POKEH. TA 
RE TURIN 
* meme E SS 1=4 
POKFEG. 52: POKEH. 52 
RETURN 
Peep s E 5 
POKEG. 33: POK 
RETURN 
EAR ca co eta sda ea aa SA AR E) 
FOKEG. 54: FOKEH. 54 
RETURN 
Poeta EE E 
POKEG. 55: POKEH. 55 
RETURN 
euttops 22: I=B 
FOKEG. 56: POKEH. 56 
SG 
7 


m e 
T- 


RETURN 
Poeta E E E Ds 
POkKEG. 57: POKEH:» 


3 RETURN 


“Poesia ass I=1Ô iii 
“uKEG. 495 COKEG+I » 48: POKEH. 49: POKEH+I » 48 
RE. TURN 
Poets sos I=1i DER 
eutqeção 74% POKEH. 74 
RETURN 
sasl=1222% Eee 
posteri EA ERREI 
E TURN 
Popmesestepra ss das |=1SETTS Seen 
cado. 754 POKEHs 75 
RETURN 
“semussas ROTINA DA SEGUNDA CARTA-P=2 21374 
G=15429:M=15/57 
FuR Y=27021 :SET(7.Y):SET(3S.Y): NEXTYI SET (8, 


:SET(34. 1)1SET(B. 22): SET (34.22) 


C 


COLS GO ROO” 


Ç 


9602007009) 00 606 6 


154 FORK=I0TOZZISET(A> 0): SET (K: 253) ENEXTX 

155 GOSURIBAZ 

156 RETURN 

157 "omsaoks ss srs TERCEIRA CARTAS F=3 saca see 
158 6=153442:H=15770 

159 FORY=2TOZI SET(SS.Y) 2 SET(6L: VI) SNESNTYS GET (JA, 
1): SET(60, 1): SET (34, 22) : SET (60, 27) 

160 FORK=36TOSS: SET (KR. O) FSETCS. 23) CNERTA 

161 GOSURI91 

162 RETURN 

163 Cometa sds SOUARTA CARTA, P= da dote 

164 6=15455:H=157853 

163 FORY=2T021:SET(S9.Y): BET(B7.Y) 2 NEXTY: GET (60, 
1): SET (B6. 1): SET (40. 22) : SET (Bó. 2%) 

146 FORK=62TOB4A: SET IX. 0): GET (X. 23) ENEXTX 

167 GOSUB 195 

168 RETURN 

1697 Cometa Ss SIIITNTA CARTA, P=5o Ein seo 
170 G=1546B:H=15796 

171 FOR O eu o a A PE 
Bo. 1)2SET(11Z.1 CSETABO. PE ISETOIT E. PR) 

172 FORK=8S8TO | LOS SET (X.0) ESET Ka 25) SNFEXTA 

17% GOSUR 4194 
174 RETURN 

178 * o memeomopa nna E 
176 Db=159E92:H=1615 
177 capasop a SET (7; WI FSET(SI.Y) ENEXTYISET (54 
£6): SET (54. 38) 4 SET IB. 26) : SET (ss 38) 

178 FORK=9TOSZ:SET (X. 25) : SET (K, 39) ENEXTX 

179 RETURN 


* FRIMEIRA CARTA.sp=1 22% 2 


180 * 
181 * 
162 “:2::: COORDENADA DOS NAIFES DAS CARTAS 215: 
LOS "HMMESESERASISSLAZaLSaSasasssnanasazassa d+ 
184 * 
18S * 


186 * meto s sz 222: CORTA 2 IRSLSOSmMstA 
187 A=15432:B=15758B 

188 GOSUE 207 

189 RETURN 

190 RETURN 

1910 "see ss 
192 0=15444:E=157 
193 GOSUB207 

194 RETURN 

195 "xe S Ss sas 27: 
196 A=15457:B=157E5, 
197 GOSUKE 207 

198 RETURN 

199 * meets una 
200 A=15470:8=15798 
“01 GOSUB20O7 

202 RETURN 

203  * meme E E 
204 A=1S9641:B=1613 
208 pis 207 

206 KRETLIKN 


22: CARTA Fitaziasesespaos 


“4 = 


2: CARTA GQrrraccrrcesaepata 


Cj 
Dr 
x 
pr, 
Dr 


ER a o dio PÉS cão 


asssis CARTA À dinszagoa sea 


7] .. 


Ml OND OCL DVUO.O-D O OO Dk 


) 


Ç 


0 0VARDDOD DO DO CC OO 


EO? 
20R 
EO 
210 
Z11 
212 
213 
214 
215 
216 
217 
1a 
219 
220 
221 
Le 
Des 
1ã6 
ERA 
DES 
226 
227 
223 
229 
E NO) 
PSA 
AS 
= 3 


EIA 


RE PE EE PES Cs cio E Ds a a ERA RR E O Ra RA RA RA ARO SR 
"peter é E CIND/ MNATPESO See ote nte sprope opened eee 
ope E SS DST A RS AR testesrotineeo pente peopeoeaeatonto 
C=67:E=69:0=79:F=B0 

IF N=1 THEN POKE AsCIPOKE B.C 

IF N=2 THEN POKE AsEIPOKE B. E 

IE nN=4 THEN POKE AsOEPOKE BO 

TE N=4 THEN POKE AsP:POKE BP 

RE TURN 

Petoeemrs ss SORTEIO DA CARTA ABERTA 2255 %+++ 
CAMERA SRSRSSESESEESSASATACESERTRERA ER tee 
CLS: W=0: 0=0:L=0:]=0 

FORU=1TO6 

RANDOM 


T=RND (LE) 2 N=SRKND (4) 
ON |U GOSUE 237, 151>-157. 1653-169 
ON T GOSUK 111, 115. 118-:121. 124.127. 150. 153» 


» 139. 142. 145. 148 


El=wiW=51+]T 

E == 

IF I=11 THEN W=B2+9 

IF 1=12 THEN w=B2+8 

IF 1=13 THEN U=E2+7 

PRINT SHI +HAD. "SOMA =" 2 W5 

IFlU=á THEN Z36 

PRINTRI4GHHI+Z. "DESEJA MAIS CARTAS (S/N). 0S 
RIg=INKEV$S: [ERAE=""THEN 232 

TF B3$g="Nº THEN 70 

JF E38="S" THEN PRINT9O14464+2. STRINGS (JO, E2 


DJANEXTU 


PN 
2IG 
237 
Es 

Ra 

Aa z 
240 
281 
gar 
E 
AA 
24 
2846 
247 
248 


[E RaS<>"S" OR BSS PN" THEN 251 

RETURN 

* 25: ROTINA DA PRIMEIRA CARTA ABERTA 25: 
G=14959:H=1613E 

FOR Y=27TOS7Z:SET47. YV)ISET(SS. Y)INEXTYIDETAS 


6): SET (54. SS) SET (B. 26): SET (B. 38) 


FORX=STO S3º:SET(K. 25): SET OX, 39) ENEXTK 

GOSURB 205 

RE TLIRIN 

CLS: oeste 22724 ROT/DES/GONHEL: SR Ettore 
FORY=3T05: FORK=7TOSS: SET (XY): NEXTK:NEXTY 
FORY=3TOS:FORX=44T071:SET(K:Y): NEXTX:NEXTY 
FORV=1Z2TO 14: FORK=26TO41:SET(X. Y) NEXTXENEXTY 
FORY=127014:FORK=64T099: SET (X, Y) ENEXTX: NEXTY 
FORV=127014:FORK=47TOAG6: SET (XY) ENEXTRENEXTY 
FORY=18TOZO:FORX=112ZT70117:SET(X.Y) :NEXTHENEXTY 
FURY=L2TOZO:FORK=7T0ZS: SET(X.Y) :NEXTXENEXTY 
FORY=24T026:FORX=B0TD1LOZ: SET (KsY) E NEXTXENEXTY 
FORyY=S0TOZZ: FORX=44T0O71FSETAKY) E NEXTXENEXTY 
FORY=30TOZ2Z:FORK=80TOLOS: SET (Ka Y) ENEXTRENEXTY 
FORY=39T041: FORK=S0TOLORE SET (KYO) ENEXTRSNEXTY 
FORY=3TOZO:FORK=7TOLZISET O V) ENEXTRENEXTY 
FORY=1S5TOZO: FORK=T1 TOSSE SETA. Y) ENEXTRENEXTY 
FORY=3TOZO:FORK=44TOSO: SET (XaY) ENEXTRENEXTY 
FORY=ZTOZO: FORK=65TOZAESETAX. VI) ENEXTASENENTY 
FORV=247041:FORK=87013:SET(X.Y):NEXTXENEXTY 
FORyV=24T041:FORX=50TD0ZS: SETA. Y) ENEXTXENEXTY 


1000000 2DODOS DOOU 


9 
q 


II) SOQODAODVDDO DODOO OE 


8 


261 FORy=24T041:FORK=44TO4PI GET (XY) E NEXTXINEXTY 
26% FORNY=24T041 SS FORX=66TNZISGETAM. Y)SNEXTXENEXTY 
26% FORY=28T041: FORK=R0TOBS: SET (MK. Y) 2: NEXTKENEXTY 
266 FORY=24TOMI EFORX=112T0112:BET(K.Y)ENEXTX:NEXTY 
26H W9=11:K9=15 

<bto FORY=2AT041:FORK=W9 TO K9:SET(X.Y): ITFX=52THENZ 


27 WG=Wy+ E EKG=Ro+1ENEXTXENEXTY 
268 FORM=1TOLOGO: NEXTME RETURN 
26% CUSsmormotos 3 Es ROT/DES/ROVALS 22 Sade 


E Qi 
ele PRINTOLX64." VINTE E UM "3 
275 FORV=9TOL1:FORK=2TOZS:ISET (XY) 3 NEXTXENEXTY 
274 FORY=9TOLLZFORK=28TOS1L:SET(X.Y):NEKTKXINEXTY 
27a FORY=9TOLI:SFORK=80TOLOZ: SET (XxX. Y): NEXTX:ENEXTY 
276 FORY=9TOL1L:FORKX=54TOS9:SET(X.Y) :NEXTKXENEXTY 
277 FORV=9TOL1:FORK=727077:SET(X.Y)2:NEXTKINEKTY 
278 FORY=1S5TOL7:FORK=2TO2ZS: SET (XY) INEXTKENEXTY 
279 FORY=1S5TOLZ:FORX=54TOZ7:SETAK. Y)ENEXTKENEXTY 
eo FORY=1S5TOLZ:FORK=BOTOLOZISET(K.YV) 2 NEXTKIENEXTY 
<o FORY=24T0Z6: FORX=28TOSLISET(X, [)ENEXTKENEXTY 
cer FORY=24T026: FORK=106TOLZ7ISET (EX. VI) SNEXTXIENEXTY 
CR FORY=9TOZ6: FORK=2TOZ:ISET(X. Y)ENEXTKENEXTY 
204 FORY=9T026: FORK=28TOSSIGSET(X. VI: NEXTKINEXTY 
BS FURy=9TAZA:FORK=46TOSISSET(K.Y) :NEKTKRENEKTY 
cb FORY=9TOZ6:RFORK=80TOBS:SET (KV) INEXTKINEXTY 
Se7 FORyY=S9TOZEFORK=9BTOVOSSSET(X. YISNEXTMSENEXTY 
2es FORY=9TO2Z6:FORK=106TOLLISSETAXAYI) CNEXTRENEXTY 
ZA? FONV=S12TMAs FORK=20TNZS:GETAK. VI ENEXTKENMEXTY 
20 FORV=12ZT0/9:FORK=24TOSGI GET. VI) ENEXTKXINEXTY 
“o FORy=12TOLAL FORK=72TUTZS SETA VISNEXTKENEXTY 
“ve FORY=I8TOZ6 FORK=63TOAS: SET ER. Y)SNERTKINEKTY 
244 WHR=112ER=]7272]=114222=17 
esa FORV=IRTOZA:FORK=HRTOER:SETARX.Y): IFyX=25 THEN 
297 
CY HRSTI+ZSIKR=22+231 Zu=/R+1/4 
PG NEXTKINEXTY 
277 FORM=ITOSIPRINTDL2464+5, STRINGÉÊ(ILO, E2) FS FORD=1 
TOLOO:NEXTDIFRINTDL 2464 +. "GANHE TES FORD=ITOLOO: 
NEXTD:NEXTM 
“98 RETURN 
Cv CLS" settsctaS TZ ROT/ REVAON/22225 2 keetedots: 
00 PRINTOZXH64, "NOS EMPATAMOS. SENDO ASSIM TENHO O 
DIREITO DE SABER GUEM E* MELHOR-EU OU VOCE. ": 
501 FORM=SITO 2000:NEXTM:GOTOL 


IDOSO COCO DLDODO DE 


Ç 


1000000000 0600000 


Loteria Esportiva 





Para quem nunca jogou na loteria esportiva, ou mesmo para aqueles 
que são fanáticos em fazer “uma fezinha”, eis aqui uma sugestão; deixe 
seu computador jogar para você. É um programa que sorteia aleatoria- 
mente cartões, fazendo inclusive os duplos e triplos, ora, na maioria 
das vezes em que jogamos, SEMPRE dá uma zebra, quem sabe se seu 
computador não jogue melhor que você? Não custa tentar, ou melhor 
dar uma chance ao seu computador, é lógico que, sem a sua ajuda ele 
não o fará, portanto dé uma “mãozinha” à ele, e boa sorte aos dois. 


Oo. gÇCoCODODDAO O OL 


“é DO OLD OD D-DO OD OC 


[6 JRR oRa da dão ad do ia DRA SA A de a SR AA A A A O EA SG A DA AA EA St a EA REA RA O ada es E a a SS o Si 
20 “++ ALEXANDRE TERRA DE CALAZANS FERNANDES sx 
30 *+%* ENG. MACK = TEL: 280-5804 Ad 
Da R q NO cão co aa aa RA o ota a ads eo ta O DA SS O Ss ado DRA E So o ão tios SA es e a e ERA fo oo PÃO nd DE DS Ss So RR PS 
SO "++ JOGO DA LETERIA ESPORTIVA sesteuetotegeaeeeopooeseteoto 
Fo 308 JAN e oa a A a o o ea o a a o A a A A E o A a Re e eo SGA Eos A RO ua o nto RS che RA Ra RS os sata RS dd 
AA * 

S0 CLSICLEAR 2000 

20 PRINTO19. "LOTERIA ESPORTIVA": 

100 AB=STRINGS$ (24.191) 

110 PRINT9OBO. A$::A=15504 

120 PRINTDOLS464+16. AS: 

tão FORI=1 TO 13 

140 POKE A. 191:POKE A+S. 191:POKE A+10. 191:POKEE 
A+13. 191:POKE A+19, 191:POKE A+2Z3. 191: PRINTOCI+1) 
+64+12, 1: 

150 A=A+r64 


160 NEXT 
170 FRINTOBZ." 1 "s2PRINTOBZ.” X “ssPRINTO9L.* 2 
"3: PRINTO96»" D "5: PRINTOIOO." T's 


180 PRINT9I2464+42. "QUANTOS DUPLOS?"::PRINTDZ464+ 
42. "MAX. DE 5 “gs 

190 B$=INKEYS: TF B$="" THEN 190 

200 B=VAL (R$):IF B>5 THEN 190 

210 PRINTOS464+42. "QUANTOS TRIPLOS?"::PRINTO6%64 
+42. "MAX. DE E "ss 

220 C&=INKEYS: TF C$&="" THEN 220 

230 C=VAL (CE): IF C>3 THEN 220 

240) DE=CHKSE (140) +CHEKS (140) 

280 IF B=O0 THEN B=1 

260 FORI=1 TO 1& 

270 R=END CD) SI PRINTO(I+])464+((R$6)+11). DS: 
P20 NEXT 

es0O FORI=1 TO E 

300 FRINTO(RND(13)+1)464+353, CHR$(140)5 

SO NERT 

320 TF C=0 THEN 360 

550 FORI=1Í TO C 

340 PRINTO(RND(1Z)+1)464+Z7. CHR$(140): 

“SO NEXT 

3560 FORJ=O0 TO 15:PRINTOJ+464+42. CHR$ (30) 352: NEXT 
“70 FRINTOB+H64+42,."TECLE «<- ENTER => “s: 

380 PRINTO9+464+42, "F/ CONTINUAR": 

390 FE=INKEYS: IF F$&="" THEN 390 

400 IF F&<> CHR$(13) THEN 390 ELSE 10 


VOLVO ROCHDODO DO GL E 
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ê, 


PROGRAMA EXEMPLO PARA 
CONSISTÊNCIA E FORMATAÇÃO DE DATAS 


O coração deste programa exemplo consiste nas duas rotinas (linhas 
32000 a 33000) que são respectivamente a de formatação e consistência 
de datas. 

As linhas 16 a 156, são apenas um programa principal de exemplo 
de utilização das rotinas, com exceção da linha 46, que sempre deverá 
ser mantida, visto que uma segunda utilização da rotina 33004 com a 
inclusão da linha 44, iria provocar um erro DD (Redimensionamento 
de matriz). 

A variável ER contém a informação de data inválida quando ER = 1 
e data válida quando ER = 6. 

São duas rotinas de fácil utilização por qualquer programa. 


PROGRAMA DESENVOLVIDO PARA A LINHA TRS-80 E COMPATÍVEIS 


10 PROGRAMA EXEMPLO PARA CONSISTENCIA E 
FORMATACAO DE DATAS 

20 AUTOR: JOSE MANUEL ONETO Y VILA — FONE: 458-0938 

40 DIM DM (12) 

50 CLS | 

60 DT =G; INPUT “DATA DE HOJE (DDMMAA)";DT 

70 GOSUB 32006' FORMATA DATA 

80 GOSUB 33000 ' CONSISTE DATA 


90 IF ER= 1 THEN PRINT “DATA INVALIDA ”: PRINT : GOTO 


60 
100 PRINT “DATA CORRETA: > “;DB$ 
110 PRINT 
120 PRINT “CONTINUA (S/N) "; 
130 R$= “ “: INPUT R$:R$= LEFTS$ (R$,1) 
140 IF R$=“S” THEN GOTO 50 
150 END 
32000 * ROTINA PARA FORMATACAO DE DATAS 
32010 * DB$-+ DATA FORMATADA 
32020 * 
32030 DT$ = STR$(DT) 
32040 DT$= RIGHTS(DTS,LEN(DTS$)—1) 
32050 DT$ = RIGHTS (“OMOGOO” + DTS, 6) 
32060 DIAS = MID$ (DTS, 1,2) 
32070 MES$ = MIDS$ (DT$;3,2) 
32080 ANOS = MID$ (DT$, 5,2) 
32090 DB$ = DIAS + “/" + MESS$ + “/” + ANOS 
32100 RETURN 
33000 * SUBROTINA DE CONSISTENCIA DE DATA 
33010 * 
33020 DATA31,28,31,30,31,30,31,31,30,31,30,31 
33030 FOR |=1 TO 12 


Dodo Bi DD CD O O a DO a 


to À 


11: BL CASADO ONlAõSç: 


My) 


33040 READ DM (|) 

33050 NEXT | 

33060 RESTORE 

33070 DIA = VAL (DIAS) 

33080 MES = VAL (MESS$) 

33090 ANO = VAL (ANOS) 

33100 ANO = ANO + 1900 

33110 ER=0 

33120 IF INT (ANO/4) * 4= ANO AND INT (ANO/406) * 400< > 
ANO THEN DM (2) = 29 

33130 IF MES < 1 OR MES > 12 THEN ER = 1: RETURN 

33140 IFDIA<10RDIAZ31THEN ER=1:RETURN 

33150 IF DIA > DM (MES) THEN ER = 1: RETURN 

33160 RETURN 


VISUAL 


Este programa provoca um efeito visual muito interessante no video, 
e uma senoide de variadas posições. Tente alterar o programa, de modo 
que ele provoque novos efeitos visuais, vale a pena tentar, pois só assim 
você poderá familiarizar-se com seu microcomputador. 


PROGRAMA DESENVOLVIDO PARA A LINHA TRS-80 E COMPATÍVEIS 


10 PROGRAMA DE EFEITO VISUAL COM SENOIDES 
15 PARA TRS-80 MODELOS | E Ill E COMPATIVEIS 
20 AUTOR JOSE MANUEL ONETO Y VILA — FONE: 458-0938 
35 CLS 
40 PASSO = 0.5 
50 C=23 
60 T=23 
70 IFC*T=GGOTO 1000 
80 FORI=GTO 127 
90 X=SIN(I/T)*T+C 
100 IFX<10RX>47GOTO 126 
10 SET (1,X) 
120 NEXT | 
130 T=T-1 
140 GOTO 70 
1000 GOTO 1000 


ATENÇÃO LEITORES: 


Escrevam pedindo esclarecimentos, sugestões, críticas, que serão 
respondidas através da seção de cartas. 
Enderece a correspondência para: 
BARTOLO FITTIPALDI 
Revista “SO PROGRAMAS” — Rua Santa Virgínia, 403 
Tatuapé — CEP 03084 — SÃO PAULO — SP. 
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